home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DTP / P-Z / Zapper(Xpress) 2.0a.cpt / Zapper (version 2.0A).rsrc / STR#_3989.txt < prev    next >
Text File  |  1990-12-21  |  825b  |  19 lines
  1.  {FontDirectory xpplnfnam known{/xpfnam xpplnfnam def}
  2.  {xpplnfnam xpstripname{pop dup cvn /findfont load stopped
  3.  {pop}{xpplnfnam exch xpnewfont /xpfnam xpplnfnam def}ifelse
  4.  }if pop}ifelse}if}ifelse}ifelse}if xpfnam findfont
  5.  
  6.  {xpdidch{currentfont xpfnam exch [1 0 0 -1 0 0] makefont xpnewfont}
  7.  {xpfnam xpstripname{pop cvn dup /findfont load stopped not dup
  8.  {xpfnam 3 -1 roll xpnewfont}{exch pop}ifelse}{F}ifelse exch pop not xppln and
  9.  
  10. /xpdefont{
  11.  /xptrapamt xdf /xpfnam xdf dup /xppln xdf{/xpplnfnam xdf}if
  12.  dup /xpbit xdf{/xpbitfnam xdf}if /xpdidch xdf/xpuseangl xdf
  13.  FontDirectory xpfnam known not
  14.  {xpbit{FontDirectory xpbitfnam known}{F}ifelse{/xpfnam xpbitfnam def}
  15.  
  16. /xpstripname{xps75 cvs(|______)anchorsearch}bdf
  17. /xpnewfont{dup maxlength dict begin xpcf/Encoding xpmacvec def currentdict end definefont pop}bdf
  18.  
  19.